home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 44 / Amiga Format CD44 (1999-08-26)(Future Publishing)(GB)(Track 1 of 3)[!][issue 1999-10].iso / -in_the_mag- / basics / amos / moreuselssprgs.lha / SampSpeed.AMOS / SampSpeed.amosSourceCode < prev   
AMOS Source Code  |  1997-04-15  |  466b  |  22 lines
  1. '  
  2. ' SAMPSPEED ï¿½ndert die Frequenz der Kan�le in KANAL auf  
  3. ' die FREQ.
  4. '
  5. Screen Open 0,320,200,2,0
  6. Curs Off : Palette 0,$FFF
  7. Sam Loop On 
  8. Sam Play 1,1
  9. Print : Print : Print "Maus bewegen! Maustaste beendet!"
  10. Repeat 
  11.   FR=X Mouse*80-10000
  12.   Home : Print "Frequenz:";FR;" Hz   "
  13.   SAMPSPEED[1,FR]
  14. Until Mouse Key
  15. Music Off 
  16. End 
  17. Procedure SAMPSPEED[KANAL,FREQ]
  18.   RATE=3579545/FREQ
  19.   For A=0 To 3
  20.     If Btst(A,KANAL) Then Doke $DFF0A6+A*16,RATE
  21.   Next 
  22. End Proc